Know Your Baseball - The Greatest Player Resource/Know Your Baseball - Greatest Player.iso/Baseball/Director/KTGCST.CST/00062_Script_buttons scripts Roles

Text File | 1998-09-21 | 5KB | 155 lines

--- for balls in roles where the players have threestates
on ThreeStatePlayers121
  set mybutton = the clickon
  set player = the clickon+20
  set one = getat(gbuttonState, mybutton)
  if one = 0 then
    set e = the membernum of sprite mybutton+1
    set f = the membernum of sprite player+1
    set the membernum of sprite mybutton = member e of castlib "internal"
    set the membernum of sprite player = member f of castlib "internal"
    setat(gbuttonState, mybutton,2)
    setat(gbuttonState, player,2)
  end if
  loadAudioMedia(player)
end


on resetplayers121
  set mybutton = the clickon+20
  repeat with y = 31 down to 25
    set thisone = getat(gbuttonState,y)
    if thisone > 0 and y <> mybutton then
      set player = y-20
      set e = (the membernum of sprite y)-1
      set f = (the membernum of sprite player)-1
      set the blend of sprite y = 0
      set the blend of sprite y-20 = 0
      set the membernum of sprite y = member e of castlib "internal"
      if the membernum of sprite player > 0 then set the membernum of sprite player = member f of castlib "internal"
      setat(gbuttonState,y,0)
      setat(gbuttonState,player,0)
      exit repeat
    end if
  end repeat
  updatestage
end

--- offset by 10

on ThreeStateplayersoff10
  set mybutton = the clickon-10
  set player = the clickon+10
  set one = getat(gbuttonState, player)
  if one = 0 then
    set e = the membernum of sprite mybutton+1
    set f = the membernum of sprite player+1
    set the membernum of sprite mybutton = member e of castlib "internal"
    set the membernum of sprite player = member f of castlib "internal"
    setat(gbuttonState, mybutton,2)
    setat(gbuttonState, player,2)
  end if
  loadAudioMedia(player)
end


on resetplayersoff10
  set mybutton = the clickon+10
  repeat with y = 31 down to 25
    set thisone = getat(gbuttonState,y)
    if thisone > 0 and y <> mybutton then
      set player = y-20
      set e = the membernum of sprite y-1
      set f = the membernum of sprite player-1
      set the blend of sprite y = 0
      set the blend of sprite y-20 = 0
      set the membernum of sprite y = member e of castlib "internal"
      setat(gbuttonState,y,0)
      if the membernum of sprite player = 0 then exit
      set the membernum of sprite player = member f of castlib "internal"
      setat(gbuttonState,player,0)
      exit repeat
    end if
  end repeat
  updatestage
end

------------------------------------

on ThreeStateplayersoff16
  set mybutton = the clickon-16
  set player = the clickon+4
  set one = getat(gbuttonState, player)
  if one = 0 then
    set e = the membernum of sprite mybutton+1
    set f = the membernum of sprite player+1
    set the membernum of sprite mybutton = member e of castlib "internal"
    set the membernum of sprite player = member f of castlib "internal"
    setat(gbuttonState, mybutton,2)
    setat(gbuttonState, player,2)
  end if
  loadAudioMedia(player)
end


on resetplayersoff16
  set mybutton = the clickon+4
  repeat with y = 31 down to 25
    set thisone = getat(gbuttonState,y)
    if thisone > 0 and y <> mybutton then
      set player = y-20
      set e = the membernum of sprite y-1
      set f = the membernum of sprite player-1
      set the blend of sprite y = 0
      set the blend of sprite y-20 = 0
      set the membernum of sprite y = member e of castlib "internal"
 if the membernum of sprite player > 0 then set the membernum of sprite player = member f of castlib "internal"
      setat(gbuttonState,y,0)
      setat(gbuttonState,player,0)
      exit repeat
    end if
  end repeat
  updatestage
end


on ThreeStateplayersoff14
  set mybutton = the clickon-14
  set player = the clickon+6
  set one = getat(gbuttonState, player)
  if one = 0 then
    set e = the membernum of sprite mybutton+1
    set f = the membernum of sprite player+1
    set the membernum of sprite mybutton = member e of castlib "internal"
    set the membernum of sprite player = member f of castlib "internal"
    setat(gbuttonState, mybutton,2)
    setat(gbuttonState, player,2)
  end if
  loadAudioMedia(player)
end


on resetplayersoff14
  set mybutton = the clickon+6
  repeat with y = 31 down to 25
    set thisone = getat(gbuttonState,y)
    if thisone > 0 and y <> mybutton then
      set player = y-20
      set e = the membernum of sprite y-1
      set f = the membernum of sprite player-1
      set the blend of sprite y = 0
      set the blend of sprite y-20 = 0
      set the membernum of sprite y = member e of castlib "internal"
if the membernum of sprite player > 0 then set the membernum of sprite player = member f of castlib "internal"
      setat(gbuttonState,y,0)
      setat(gbuttonState,player,0)
      exit repeat
    end if
  end repeat
  updatestage
end